home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s3.d64 / peter piper.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  18KB  |  331 lines
  1. 5 REM PROGRAMMED BY BOB YEWCHUK               MISSISSAUGA ONTARIO
  2. 10 :
  3. 20 POKE53281,0:POKE53280,0
  4. 30 REM PETER PIPER --- MUSIC BY FRANK   MILLS--COPYRIGHT 1970
  5. 80 REM CLEAR SOUND LOCATIONS
  6. 90 GOSUB11000
  7. 100 REM TURN ON SOUND GENERATORS
  8. 110 VC=54296:REM VOLUME
  9. 120 W1=54276:W2=54283:W3=54290:REM          WAVEFORMS FOR THE 3 VOICES
  10. 140 A1=54277:A2=54284:A3=54291:REM          ATTACK/DECAY VARIABLES
  11. 160 S1=54278:S2=54285:S3=54292:REM          SUSTAIN/RELEASE VARIBLES
  12. 180 H1=54273:H2=54280:H3=54287:REM          HIGH NOTE VARIABLES
  13. 200 L1=54272:L2=54279:L3=54286:REM          LOW NOTE VARIABLES
  14. 220 C1=53280:C2=53281:REM SCREEN/BORDER COLOUR VARIABLES
  15. 230 TT=40
  16. 240 PRINT"[147]  SPEED: 1=FASTEST    300=SLOWEST"
  17. 260 INPUTTT:TT=TT+10
  18. 300 PRINT"[147][158]PETER PIPER"
  19. 320 PRINT"BY  FRANK MILLS"
  20. 340 FORT=1TO1200:NEXT:GOTO400
  21. 360 PRINT"[159]THE END":END
  22. 400 POKE54289,87:POKE54282,20:POKE54275,120
  23. 420 POKE54288,7:POKE54281,8:POKE54274,9
  24. 500 POKEVC,14:REM HIGHEST VOLUME
  25. 540 POKEA1,40:POKEA2,129:POKEA3,129
  26. 560 POKES1,136:POKES2,129:POKES3,129
  27. 580 POKEW1,65:POKEW2,65:POKEW3,65
  28. 990 REM START OF FIRST PART --- 2 VOICES
  29. 1000 READA,B,C,D
  30. 1010 IF A=500THEN1100
  31. 1020 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D
  32. 1040 GOSUB10000
  33. 1060 GOTO1000
  34. 1100 REM START OF SECOND SECTION             3 VOICES
  35. 1110 IFZ=1THENGOSUB11000:GOTO360
  36. 1115 Z=1:TT=TT-10
  37. 1120 READA,B,C,D,E,F
  38. 1140 IF A=600 THENRESTORE:GOTO1200
  39. 1160 POKEH1,A:POKEL1,B:POKEH2,C:POKEL2,D:POKEH3,E:POKEL3,F:REM HIGH/LOW NOTES
  40. 1180 GOSUB10000
  41. 1190 GOTO1120
  42. 1200 GOTO1000
  43. 2000 DATA 25,177,0,0,25,177,0,0,34,75,0,0,34,75,0,0
  44. 2010 DATA 43,52,0,0,43,52,0,0,34,75,0,0,34,75,0,0:REM END OF BAR 1
  45. 2020 DATA 25,177,0,0,25,177,0,0,34,75,0,0,34,75,0,0
  46. 2030 DATA 43,52,0,0,43,52,0,0,34,75,0,0,34,75,0,0:REM END OF BAR 2
  47. 2040 DATA 25,177,0,0,25,177,0,0,34,75,0,0,34,75,0,0
  48. 2050 DATA 43,52,0,0,43,52,0,0,34,75,0,0,34,75,0,0:REM END OF BAR 3
  49. 2060 DATA 25,177,0,0,25,177,0,0,34,75,0,0,34,75,0,0
  50. 2070 DATA 43,52,0,0,43,52,0,0,34,75,0,0,34,75,0,0:REM END OF BAR 4
  51. 2080 DATA 25,177,86,105,25,177,86,105,34,75,86,105,34,75,86,105
  52. 2090 DATA 43,52,86,105,43,52,86,105,34,75,68,149,34,75,68,149:REM END OF BAR 5
  53. 2100 DATA 22,227,57,172,22,227,57,172,34,75,57,172,34,75,45,198
  54. 2110 DATA 28,214,45,198,28,214,57,172,34,75,45,198,34,74,45,198:REM END BAR 6
  55. 2120 DATA 25,177,51,97,25,177,64,188,38,126,102,194,38,126,0,0
  56. 2130 DATA 32,94,102,194,32,94,102,194,38,126,91,140,38,126,91,140:REM END BAR 7
  57. 2140 DATA 25,177,86,105,25,177,86,105,43,52,51,97,43,52,51,97
  58. 2150 DATA 34,75,51,97,34,75,51,97,43,52,51,97,43,52,51,97:REM END OF BAR 8
  59. 2160 DATA 25,177,86,105,25,177,68,149,43,52,51,97,43,52,86,105
  60. 2170 DATA 34,75,68,149,34,75,51,97,43,52,86,105,43,52,68,149:REM END OF BAR 9
  61. 2180 DATA 22,227,91,140,22,227,68,149,34,75,57,172,34,75,91,140
  62. 2190 DATA 28,214,68,149,28,214,57,172,34,75,86,105,34,75,68,149:REM END BAR 10
  63. 2200 DATA 25,177,76,252,25,177,64,188,38,126,51,97,38,126,76,252
  64. 2210 DATA 32,94,64,188,32,94,51,97,38,126,76,252,38,126,64,188:REM END BAR 11
  65. 2220 DATA 25,177,68,149,25,177,68,149,43,52,51,97,43,52,51,97
  66. 2230 DATA 34,75,68,149,34,75,68,149,43,52,76,252,43,52,76,252:REM END BAR 12
  67. 2240 DATA 25,177,86,105,25,177,86,105,34,75,86,105,34,75,86,105
  68. 2250 DATA 43,52,86,105,43,52,86,105,34,75,68,149,34,75,68,149:REM END OF BAR 5
  69. 2260 DATA 22,227,57,172,22,227,57,172,34,75,57,172,34,75,45,198
  70. 2270 DATA 28,214,45,198,28,214,57,172,34,75,45,198,34,74,45,198:REM END BAR 6
  71. 2280 DATA 25,177,51,97,25,177,64,188,38,126,102,194,38,126,0,0
  72. 2290 DATA 32,94,102,194,32,94,102,194,38,126,91,140,38,126,91,140:REM END BAR 7
  73. 2300 DATA 25,177,86,105,25,177,86,105,43,52,51,97,43,52,51,97
  74. 2310 DATA 34,75,51,97,34,75,51,97,43,52,51,97,43,52,51,97:REM END OF BAR 8
  75. 2320 DATA 25,177,86,105,25,177,68,149,43,52,51,97,43,52,86,105
  76. 2330 DATA 34,75,68,149,34,75,51,97,43,52,86,105,43,52,68,149:REM END OF BAR 9
  77. 2340 DATA 22,227,91,140,22,227,68,149,34,75,57,172,34,75,91,140
  78. 2350 DATA 28,214,68,149,28,214,57,172,34,75,86,105,34,75,68,149:REM END BAR 10
  79. 2360 DATA 25,177,76,252,25,177,64,188,38,126,51,97,38,126,76,252
  80. 2370 DATA 32,94,64,188,32,94,51,97,38,126,76,252,38,126,64,188:REM END BAR 11
  81. 2390 DATA 34,75,68,149,34,75,68,149,34,75,68,149,34,75,68,149,0,0,0,0,0,0,0,0
  82. 2400 DATA 0,0,0,0,0,0,0,0,0,0,0,0,500,500,500,500
  83. 2410 DATA 12,216,0,0,0,0,12,216,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0
  84. 2420 DATA 21,154,0,0,0,0,21,154,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0:REM P2 BAR1
  85. 2430 DATA 12,216,0,0,0,0,12,216,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0
  86. 2440 DATA 21,154,0,0,0,0,21,154,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0:REM P2 BAR2
  87. 2450 DATA 12,216,0,0,0,0,12,216,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0
  88. 2460 DATA 21,154,0,0,0,0,21,154,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0:REM P2 BAR3
  89. 2470 DATA 12,216,0,0,0,0,12,216,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0
  90. 2480 DATA 21,154,0,0,0,0,21,154,0,0,0,0,17,37,0,0,0,0,17,37,0,0,0,0:REM P2 BAR4
  91. 2490 DATA0,0,43,52,8,147,0,0,43,52,8,147,12,216,43,52,8,147,12,216,43,52,8,147
  92. 2500 DATA17,37,43,52,8,147,17,37,43,52,8,147,8,147,34,75,8,147,8,147,34,75,8,147
  93. 2510 DATA0,0,28,214,5,185,0,0,28,214,5,185,11,114,28,214,5,185,11,114,22,227,5,185
  94. 2520 DATA14,107,22,227,5,185,14,107,28,214,5,185,9,159,22,227,5,185
  95. 2525 DATA9,159,22,227,5,185:REM END BAR 2
  96. 2530 DATA0,0,51,97,6,108,0,0,64,188,6,108,12,216,102,194,6,108,12,216,0,0,6,108
  97. 2540 DATA19,63,102,194,6,108,19,63,102,194,6,108,12,216,91,140,6,108
  98. 2545 DATA12,216,91,140,6,108:REM END BAR 7
  99. 2550 DATA0,0,86,105,8,147,0,0,86,105,8,147,12,216,51,97,8,147,12,216,51,97,8,147
  100. 2560 DATA17,37,51,97,8,147,17,37,51,97,8,147,6,108,51,97,8,147,6,108,51,97,8,147
  101. 2570 DATA0,0,86,105,4,73,0,0,68,149,4,73,12,216,51,97,4,73,12,216,86,105,4,73
  102. 2580 DATA17,37,68,149,4,73,17,37,51,97,4,73,8,147,86,105,4,73,8,147,68,149,4,73
  103. 2590 DATA0,0,91,140,5,185,0,0,68,149,5,185,11,114,57,172,5,185,11,114,91,140,5,185
  104. 2600 DATA14,107,68,149,5,185,14,107,57,172,5,185,9,159,86,105,5,185
  105. 2605 DATA9,159,68,149,5,185:REM END OF  BAR 10
  106. 2610 DATA0,0,76,252,6,108,0,0,64,188,6,108,12,216,51,97,6,108,12,216,76,252,6,108
  107. 2620 DATA19,63,64,188,6,108,19,63,51,97,6,108,12,216,76,252,6,108,12,216,64,188
  108. 2625 DATA6,108:REM END OF BAR 11
  109. 2630 DATA17,37,68,149,8,147,17,37,68,149,8,147,0,0,25,177,0,0,0,0,25,177,0,0
  110. 2640 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END BAR 12
  111. 2650 DATA0,0,43,52,8,147,0,0,43,52,8,147,12,216,43,52,8,147,12,216,43,52,8,147
  112. 2660 DATA17,37,43,52,8,147,17,37,43,52,8,147,8,147,34,75,8,147,8,147,34,75,8,147
  113. 2670 DATA0,0,28,214,5,185,0,0,28,214,5,185,11,114,28,214,5,185,11,114,22,227,5,185
  114. 2680 DATA14,107,22,227,5,185,14,107,28,214,5,185,9,159,22,227,5,185
  115. 2690 DATA9,159,22,227,5,185:REM END BAR 2
  116. 2700 DATA0,0,51,97,6,108,0,0,64,188,6,108,12,216,102,194,6,108,12,216,0,0,6,108
  117. 2710 DATA19,63,102,194,6,108,19,63,102,194,6,108,12,216,91,140,6,108
  118. 2720 DATA12,216,91,140,6,108:REM END BAR 7
  119. 2730 DATA0,0,86,105,8,147,0,0,86,105,8,147,12,216,51,97,8,147,12,216,51,97,8,147
  120. 2740 DATA17,37,51,97,8,147,17,37,51,97,8,147,6,108,51,97,8,147,6,108,51,97,8,147
  121. 2750 DATA0,0,86,105,4,73,0,0,68,149,4,73,12,216,51,97,4,73,12,216,86,105,4,73
  122. 2760 DATA17,37,68,149,4,73,17,37,51,97,4,73,8,147,86,105,4,73,8,147,68,149,4,73
  123. 2770 DATA0,0,91,140,5,185,0,0,68,149,5,185,11,114,57,172,5,185,11,114,91,140,5,185
  124. 2780 DATA14,107,68,149,5,185,14,107,57,172,5,185,9,159,86,105,5,185
  125. 2790 DATA9,159,68,149,5,185:REM END OF  BAR 10
  126. 2800 DATA0,0,76,252,6,108,0,0,64,188,6,108,12,216,51,97,6,108,12,216,76,252,6,108
  127. 2810 DATA19,63,64,188,6,108,19,63,51,97,6,108,12,216,76,252,6,108,12,216,64,188
  128. 2820 DATA6,108:REM END OF BAR 11
  129. 2830 DATA17,37,68,149,8,147,17,37,68,149,8,147,17,37,68,149,8,147
  130. 2835 DATA17,37,68,149,8,147
  131. 2840 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  132. 2850 DATA12,216,34,75,8,147,12,216,34,75,8,147,12,216,43,52,8,147,12,216,38,126
  133. 2855 DATA8,147
  134. 2860 DATA12,216,43,52,8,147,12,216,43,52,8,147,12,216,34,75,8,147,12,216,34,75
  135. 2865 DATA8,147:REM END BAR 1 -- PART 3
  136. 2870 DATA17,37,28,214,11,114,17,37,28,214,11,114,17,37,45,198,11,114,17,37,43,52
  137. 2875 DATA11,114
  138. 2880 DATA17,37,45,198,11,114,17,37,45,198,11,114,17,37,34,75,11,114,17,37,34,75
  139. 2885 DATA11,114:REM BAR 2 -- PART 3
  140. 2890 DATA19,63,32,94,12,216,19,63,32,94,12,216,19,63,51,97,12,216,19,63,48,127
  141. 2895 DATA12,216
  142. 2900 DATA19,63,51,97,12,216,19,63,51,97,12,216,19,63,38,126,12,216,19,63,38,126
  143. 2905 DATA12,216:REM END BAR 3 -- PART 3
  144. 2910 DATA17,37,34,75,8,147,17,37,34,75,8,147,17,37,43,52,8,147,17,37,43,52,8,147
  145. 2920 DATA12,216,25,177,6,108,12,216,25,177,6,108,12,216,43,52,6,108,12,216,43,52
  146. 2925 DATA6,108:REM END BAR 4 -- PART 3
  147. 2930 DATA8,147,34,75,4,73,8,147,34,75,4,73,8,147,43,52,4,73,8,147,38,126,4,73
  148. 2940 DATA10,205,43,52,5,103,10,205,43,52,5,103,10,205,34,75,5,103,10,205,34,75
  149. 2945 DATA5,103:REM END BAR 5 -- PART 3
  150. 2950 DATA11,114,28,214,5,185,11,114,28,214,5,185,11,114,45,198,5,185,11,114,43,52
  151. 2955 DATA5,185
  152. 2960 DATA9,159,45,198,4,208,9,159,45,198,4,208,9,159,34,75,4,208,9,159,34,75,4,208
  153. 2970 DATA12,216,38,126,6,108,12,216,38,126,6,108,12,216,51,97,6,108,12,216,51,97
  154. 2975 DATA6,108
  155. 2980 DATA6,108,25,177,3,54,6,108,25,177,3,54,6,108,51,97,3,54,6,108,51,97,3,54
  156. 2990 DATA8,147,34,75,4,73,8,147,34,75,4,73,0,0,25,177,0,0,0,0,25,177,0,0
  157. 3000 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END OF 3
  158. 3010 DATA12,216,34,75,8,147,12,216,34,75,8,147,12,216,43,52,8,147,12,216,38,126
  159. 3020 DATA8,147
  160. 3030 DATA12,216,43,52,8,147,12,216,43,52,8,147,12,216,34,75,8,147,12,216,34,75
  161. 3040 DATA8,147:REM END BAR 1 -- PART 3
  162. 3050 DATA17,37,28,214,11,114,17,37,28,214,11,114,17,37,45,198,11,114,17,37,43,52
  163. 3060 DATA11,114
  164. 3070 DATA17,37,45,198,11,114,17,37,45,198,11,114,17,37,34,75,11,114,17,37,34,75
  165. 3080 DATA11,114:REM BAR 2 -- PART 3
  166. 3090 DATA19,63,32,94,12,216,19,63,32,94,12,216,19,63,51,97,12,216,19,63,48,127
  167. 3100 DATA12,216
  168. 3110 DATA19,63,51,97,12,216,19,63,51,97,12,216,19,63,38,126,12,216,19,63,38,126
  169. 3120 DATA12,216:REM END BAR 3 -- PART 3
  170. 3130 DATA17,37,34,75,8,147,17,37,34,75,8,147,17,37,43,52,8,147,17,37,43,52,8,147
  171. 3140 DATA12,216,25,177,6,108,12,216,25,177,6,108,12,216,43,52,6,108,12,216,43,52
  172. 3150 DATA6,108:REM END BAR 4 -- PART 3
  173. 3160 DATA8,147,34,75,4,73,8,147,34,75,4,73,8,147,43,52,4,73,8,147,38,126,4,73
  174. 3170 DATA10,205,43,52,5,103,10,205,43,52,5,103,10,205,34,75,5,103,10,205,34,75
  175. 3180 DATA5,103:REM END BAR 5 -- PART 3
  176. 3190 DATA11,114,28,214,5,185,11,114,28,214,5,185,11,114,45,198,5,185,11,114,43,52
  177. 3200 DATA5,185
  178. 3210 DATA9,159,45,198,4,208,9,159,45,198,4,208,9,159,34,75,4,208,9,159,34,75,4,208
  179. 3220 DATA12,216,38,126,6,108,12,216,38,126,6,108,12,216,51,97,6,108,12,216,51,97
  180. 3230 DATA6,108
  181. 3240 DATA6,108,25,177,3,54,6,108,25,177,3,54,6,108,51,97,3,54,6,108,51,97,3,54
  182. 3250 DATA8,147,34,75,4,73,8,147,34,75,4,73,0,0,25,177,0,0,0,0,25,177,0,0
  183. 3260 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END OF 3
  184. 3270 DATA0,0,43,52,8,147,0,0,43,52,8,147,12,216,43,52,8,147,12,216,43,52,8,147
  185. 3280 DATA17,37,43,52,8,147,17,37,43,52,8,147,8,147,34,75,8,147,8,147,34,75,8,147
  186. 3290 DATA0,0,28,214,5,185,0,0,28,214,5,185,11,114,28,214,5,185,11,114,22,227,5,185
  187. 3300 DATA14,107,22,227,5,185,14,107,28,214,5,185,9,159,22,227,5,185
  188. 3310 DATA9,159,22,227,5,185:REM END BAR 2
  189. 3320 DATA0,0,51,97,6,108,0,0,64,188,6,108,12,216,102,194,6,108,12,216,0,0,6,108
  190. 3330 DATA19,63,102,194,6,108,19,63,102,194,6,108,12,216,91,140,6,108
  191. 3340 DATA12,216,91,140,6,108:REM END BAR 7
  192. 3350 DATA0,0,86,105,8,147,0,0,86,105,8,147,12,216,51,97,8,147,12,216,51,97,8,147
  193. 3360 DATA17,37,51,97,8,147,17,37,51,97,8,147,6,108,51,97,8,147,6,108,51,97,8,147
  194. 3370 DATA0,0,86,105,4,73,0,0,68,149,4,73,12,216,51,97,4,73,12,216,86,105,4,73
  195. 3380 DATA17,37,68,149,4,73,17,37,51,97,4,73,8,147,86,105,4,73,8,147,68,149,4,73
  196. 3390 DATA0,0,91,140,5,185,0,0,68,149,5,185,11,114,57,172,5,185,11,114,91,140,5,185
  197. 3400 DATA14,107,68,149,5,185,14,107,57,172,5,185,9,159,86,105,5,185
  198. 3410 DATA9,159,68,149,5,185:REM END OF  BAR 10
  199. 3420 DATA0,0,76,252,6,108,0,0,64,188,6,108,12,216,51,97,6,108,12,216,76,252,6,108
  200. 3430 DATA19,63,64,188,6,108,19,63,51,97,6,108,12,216,76,252,6,108,12,216,64,188
  201. 3440 DATA6,108:REM END OF BAR 11
  202. 3450 DATA17,37,68,149,8,147,17,37,68,149,8,147,0,0,25,177,0,0,0,0,25,177,0,0
  203. 3460 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END BAR 1
  204. 3470 DATA0,0,43,52,8,147,0,0,43,52,8,147,12,216,43,52,8,147,12,216,43,52,8,147
  205. 3480 DATA17,37,43,52,8,147,17,37,43,52,8,147,8,147,34,75,8,147,8,147,34,75,8,147
  206. 3490 DATA0,0,28,214,5,185,0,0,28,214,5,185,11,114,28,214,5,185,11,114,22,227,5,185
  207. 3500 DATA14,107,22,227,5,185,14,107,28,214,5,185,9,159,22,227,5,185
  208. 3510 DATA9,159,22,227,5,185:REM END BAR 2
  209. 3520 DATA0,0,51,97,6,108,0,0,64,188,6,108,12,216,102,194,6,108,12,216,0,0,6,108
  210. 3530 DATA19,63,102,194,6,108,19,63,102,194,6,108,12,216,91,140,6,108
  211. 3540 DATA12,216,91,140,6,108:REM END BAR 7
  212. 3550 DATA0,0,86,105,8,147,0,0,86,105,8,147,12,216,51,97,8,147,12,216,51,97,8,147
  213. 3560 DATA17,37,51,97,8,147,17,37,51,97,8,147,6,108,51,97,8,147,6,108,51,97,8,147
  214. 3570 DATA0,0,86,105,4,73,0,0,68,149,4,73,12,216,51,97,4,73,12,216,86,105,4,73
  215. 3580 DATA17,37,68,149,4,73,17,37,51,97,4,73,8,147,86,105,4,73,8,147,68,149,4,73
  216. 3590 DATA0,0,91,140,5,185,0,0,68,149,5,185,11,114,57,172,5,185,11,114,91,140,5,185
  217. 3600 DATA14,107,68,149,5,185,14,107,57,172,5,185,9,159,86,105,5,185
  218. 3610 DATA9,159,68,149,5,185:REM END OF  BAR 10
  219. 3620 DATA0,0,76,252,6,108,0,0,64,188,6,108,12,216,51,97,6,108,12,216,76,252,6,108
  220. 3630 DATA19,63,64,188,6,108,19,63,51,97,6,108,12,216,76,252,6,108,12,216,64,188
  221. 3640 DATA6,108:REM END OF BAR 11
  222. 3650 DATA17,37,68,149,8,147,17,37,68,149,8,147,17,37,68,149,8,147
  223. 3660 DATA17,37,68,149,8,147
  224. 3670 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  225. 3680 DATA25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52
  226. 3685 DATA8,147:REM END BAR 1 -- PART 4
  227. 3690 DATA25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52
  228. 3695 DATA8,147:REM END BAR 2 -- PART 4
  229. 3700 DATA28,214,45,198,11,114,28,214,45,198,11,114,28,214,45,198,11,114
  230. 3705 DATA28,214,45,198,11,114:REM BAR 1
  231. 3710 DATA28,214,45,198,11,114,28,214,45,198,11,114,28,214,45,198,11,114
  232. 3715 DATA28,214,45,198,11,114:REM BAR 2
  233. 3720 DATA34,75,51,97,12,216,34,75,51,97,12,216,34,75,51,97,12,216,34,75,51,97
  234. 3725 DATA12,216
  235. 3730 DATA32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97
  236. 3735 DATA12,216:REM BAR 3 -- PART 4
  237. 3740 DATA25,177,45,198,17,37,25,177,45,198,17,37,25,177,45,198,17,37,25,177,45,198
  238. 3745 DATA17,37
  239. 3750 DATA25,177,43,52,17,37,25,177,43,52,17,37,25,177,43,52,17,37,25,177,43,52
  240. 3755 DATA17,37:REM BAR 4 -- PART 4
  241. 3760 DATA25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52
  242. 3765 DATA8,147
  243. 3770 DATA25,177,43,52,10,205,25,177,43,52,10,205,25,177,43,52,10,205,25,177,43,52
  244. 3775 DATA10,205:REM BAR 5 -- PART 4
  245. 3780 DATA28,214,45,198,11,114,28,214,45,198,11,114,28,214,45,198,11,114,28,214
  246. 3785 DATA45,198,11,114
  247. 3790 DATA28,214,45,198,9,159,28,214,45,198,9,159,28,214,45,198,9,159,28,214,45,198
  248. 3795 DATA9,159:REM BAR 6 -- PART 4
  249. 3800 DATA25,177,51,97,12,216,25,177,51,97,12,216,25,177,51,97,12,216,25,177,51,97
  250. 3805 DATA12,216
  251. 3810 DATA32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97
  252. 3815 DATA12,216:REM BAR 7 -- PART 4
  253. 3820 DATA17,37,34,75,8,147,17,37,34,75,8,147,0,0,25,177,0,0,0,0,25,177,0,0
  254. 3830 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END PART 4
  255. 3840 DATA25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52
  256. 3850 DATA8,147:REM END BAR 1 -- PART 4
  257. 3860 DATA25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52
  258. 3870 DATA8,147:REM END BAR 2 -- PART 4
  259. 3880 DATA28,214,45,198,11,114,28,214,45,198,11,114,28,214,45,198,11,114
  260. 3890 DATA28,214,45,198,11,114:REM BAR 1
  261. 3900 DATA28,214,45,198,11,114,28,214,45,198,11,114,28,214,45,198,11,114
  262. 3910 DATA28,214,45,198,11,114:REM BAR 2
  263. 3920 DATA34,75,51,97,12,216,34,75,51,97,12,216,34,75,51,97,12,216,34,75,51,97
  264. 3930 DATA12,216
  265. 3940 DATA32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97
  266. 3950 DATA12,216:REM BAR 3 -- PART 4
  267. 3960 DATA25,177,45,198,17,37,25,177,45,198,17,37,25,177,45,198,17,37,25,177,45,198
  268. 3970 DATA17,37
  269. 3980 DATA25,177,43,52,17,37,25,177,43,52,17,37,25,177,43,52,17,37,25,177,43,52
  270. 3990 DATA17,37:REM BAR 4 -- PART 4
  271. 4000 DATA25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52,8,147,25,177,43,52
  272. 4010 DATA8,147
  273. 4020 DATA25,177,43,52,10,205,25,177,43,52,10,205,25,177,43,52,10,205,25,177,43,52
  274. 4030 DATA10,205:REM BAR 5 -- PART 4
  275. 4040 DATA28,214,45,198,11,114,28,214,45,198,11,114,28,214,45,198,11,114,28,214
  276. 4050 DATA45,198,11,114
  277. 4060 DATA28,214,45,198,9,159,28,214,45,198,9,159,28,214,45,198,9,159,28,214,45,198
  278. 4070 DATA9,159:REM BAR 6 -- PART 4
  279. 4080 DATA25,177,51,97,12,216,25,177,51,97,12,216,25,177,51,97,12,216,25,177,51,97
  280. 4090 DATA12,216
  281. 4100 DATA32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97,12,216,32,94,51,97
  282. 4110 DATA12,216:REM BAR 7 -- PART 4
  283. 4120 DATA17,37,34,75,8,147,17,37,34,75,8,147,0,0,25,177,0,0,0,0,25,177,0,0
  284. 4130 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END PART
  285. 4140 DATA0,0,43,52,8,147,0,0,43,52,8,147,12,216,43,52,8,147,12,216,43,52,8,147
  286. 4150 DATA17,37,43,52,8,147,17,37,43,52,8,147,8,147,34,75,8,147,8,147,34,75,8,147
  287. 4160 DATA0,0,28,214,5,185,0,0,28,214,5,185,11,114,28,214,5,185,11,114,22,227,5,185
  288. 4170 DATA14,107,22,227,5,185,14,107,28,214,5,185,9,159,22,227,5,185
  289. 4180 DATA9,159,22,227,5,185:REM END BAR 2
  290. 4190 DATA0,0,51,97,6,108,0,0,64,188,6,108,12,216,102,194,6,108,12,216,0,0,6,108
  291. 4200 DATA19,63,102,194,6,108,19,63,102,194,6,108,12,216,91,140,6,108
  292. 4210 DATA12,216,91,140,6,108:REM END BAR 7
  293. 4220 DATA0,0,86,105,8,147,0,0,86,105,8,147,12,216,51,97,8,147,12,216,51,97,8,147
  294. 4230 DATA17,37,51,97,8,147,17,37,51,97,8,147,6,108,51,97,8,147,6,108,51,97,8,147
  295. 4240 DATA0,0,86,105,4,73,0,0,68,149,4,73,12,216,51,97,4,73,12,216,86,105,4,73
  296. 4250 DATA17,37,68,149,4,73,17,37,51,97,4,73,8,147,86,105,4,73,8,147,68,149,4,73
  297. 4260 DATA0,0,91,140,5,185,0,0,68,149,5,185,11,114,57,172,5,185,11,114,91,140,5,185
  298. 4270 DATA14,107,68,149,5,185,14,107,57,172,5,185,9,159,86,105,5,185
  299. 4280 DATA9,159,68,149,5,185:REM END OF  BAR 10
  300. 4290 DATA0,0,76,252,6,108,0,0,64,188,6,108,12,216,51,97,6,108,12,216,76,252,6,108
  301. 4300 DATA19,63,64,188,6,108,19,63,51,97,6,108,12,216,76,252,6,108,12,216,64,188
  302. 4315 DATA6,108:REM END OF BAR 11
  303. 4320 DATA17,37,68,149,8,147,17,37,68,149,8,147,0,0,25,177,0,0,0,0,25,177,0,0
  304. 4330 DATA0,0,34,75,0,0,0,0,34,75,0,0,0,0,38,126,0,0,0,0,38,126,0,0:REM END BAR 1
  305. 4340 DATA0,0,43,52,8,147,0,0,43,52,8,147,12,216,43,52,8,147,12,216,43,52,8,147
  306. 4350 DATA17,37,43,52,8,147,17,37,43,52,8,147,8,147,34,75,8,147,8,147,34,75,8,147
  307. 4360 DATA0,0,28,214,5,185,0,0,28,214,5,185,11,114,28,214,5,185,11,114,22,227,5,185
  308. 4370 DATA14,107,22,227,5,185,14,107,28,214,5,185,9,159,22,227,5,185
  309. 4380 DATA9,159,22,227,5,185:REM END BAR 2
  310. 4390 DATA0,0,51,97,6,108,0,0,64,188,6,108,12,216,102,194,6,108,12,216,0,0,6,108
  311. 4400 DATA19,63,102,194,6,108,19,63,102,194,6,108,12,216,91,140,6,108
  312. 4410 DATA12,216,91,140,6,108:REM END BAR 7
  313. 4420 DATA0,0,86,105,8,147,0,0,86,105,8,147,12,216,51,97,8,147,12,216,51,97,8,147
  314. 4430 DATA17,37,51,97,8,147,17,37,51,97,8,147,6,108,51,97,8,147,6,108,51,97,8,147
  315. 4440 DATA0,0,86,105,4,73,0,0,68,149,4,73,12,216,51,97,4,73,12,216,86,105,4,73
  316. 4450 DATA17,37,68,149,4,73,17,37,51,97,4,73,8,147,86,105,4,73,8,147,68,149,4,73
  317. 4460 DATA0,0,91,140,5,185,0,0,68,149,5,185,11,114,57,172,5,185,11,114,91,140,5,185
  318. 4470 DATA14,107,68,149,5,185,14,107,57,172,5,185,9,159,86,105,5,185
  319. 4480 DATA9,159,68,149,5,185:REM END OF  BAR 10
  320. 4490 DATA0,0,76,252,6,108,0,0,64,188,6,108,12,216,51,97,6,108,12,216,76,252,6,108
  321. 4500 DATA19,63,64,188,6,108,19,63,51,97,6,108,12,216,76,252,6,108,12,216,64,188
  322. 4510 DATA6,108:REM END OF BAR 11
  323. 4520 DATA17,37,68,149,8,147,17,37,68,149,8,147,17,37,68,149,8,147
  324. 4530 DATA17,37,68,149,8,147
  325. 4540 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  326. 8000 DATA 600,600,600,600,600,600
  327. 9999 DATA 999,999,999,999
  328. 10000 FORU=1TOTT:NEXT:RETURN
  329. 11000 FORT=54270TO54300:POKET,0:NEXT
  330. 11010 RETURN
  331.